ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/';
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
ValueFolderTemp2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsEditor/';
load([ValueFolder 'DonneesNature.mat']);
load([ValueFolder 'EtudeNature.mat']);
VecEditors1Temp(1,:)=[];
ValueDateEnd=[2020 12 12];
n1Temp=0;
n1Temp2=0;
for n1=1:size(VecEditors1Temp,1)
    ValueDate1=VecEditors1Temp{n1,4};
    ValueDate2=VecEditors1Temp{n1,6};
    ValueJournal=VecEditors1Temp{n1,11};
    TestTemp=0;
    n2=1;
    while n2<=size(VecJournalTemp,1)&&TestTemp==0
        if strcmpi(ValueJournal,VecJournalTemp{n2,1})==1
            TestTemp=1;
        else
            n2=n2+1;
        end
    end
    if TestTemp==1
        ValueJournalTemp=n2;
    else
        ValueJournalTemp=-1
        n1
        return
    end
    ValueDate3=VecEditors1Temp{n1,22};
    if size(ValueDate3,2)>1
        ValueEditorsBefore=1;
    else
        ValueEditorsBefore=0;
    end
    if n1~=11
        load([ValueFolderTemp 'StartJournal' num2str(ValueJournalTemp) '.mat']); 
        if size(ValueDate1,2)>=1&&ischar(ValueDate1)==0&&isnan(ValueDate1)==0
            if size(ValueDate2,2)>=1&&ischar(ValueDate2)==0&&isnan(ValueDate2)==0
                if ValueDate2<ValueDate1
                    ValueDate=VecEditors1Temp{n1,5};
                    ValueDateTemp=ValueDate2;
                else
                    ValueDate=VecEditors1Temp{n1,3};
                    ValueDateTemp=ValueDate1;
                end
            else
                ValueDate=VecEditors1Temp{n1,3};
                ValueDateTemp=ValueDate1;
            end
        else
            if size(ValueDate2,2)>=1&&ischar(ValueDate2)==0&&isnan(ValueDate2)==0
                ValueDate=VecEditors1Temp{n1,5};
                ValueDateTemp=ValueDate2;
            else
                ValueDate='';
            end
        end
        if size(ValueDate,2)>1
            n2=1;
            while n2<=size(ValueDate,2)&&strcmp(ValueDate(1,n2),'/')==0
                n2=n2+1;
            end
            ValueDay=str2double(ValueDate(1,1:n2-1));
            n2=n2+1;
            n3=n2;
            while n2<=size(ValueDate,2)&&strcmp(ValueDate(1,n2),'/')==0
                n2=n2+1;
            end
            ValueMonth=str2double(ValueDate(1,n3:n2-1));
            ValueYear=str2double(ValueDate(1,n2+1:end));
            if ValueDateTemp<100
                ValueDateEditor=[ValueYear ValueMonth ValueDay];
            else
                if ValueDateTemp>180
                    ValueDateEditor=[ValueYear NaN ValueDay];
    %             else
    %                 n1
    %                 ValueDateEditor=-1
    %                 return
                end
            end
            if ValueDateTemp<20
                ValueTemp=(ValueDateEnd(1,1)-ValueDateEditor(1,1))*12+ValueDateEnd(1,2)-ValueDateEditor(1,2);
                ValueTemp2=(ValueDateEditor(1,1)-StartDate(1,1))*12+ValueDateEditor(1,2)-StartDate(1,2);
                ValueTemp3=ValueTemp-ValueDateEditor(1,2);
                if ValueTemp3>=0
                    ValueYearTemp=ValueDateEditor(1,1)-floor(ValueTemp3/12)-1;
                    ValueMonthTemp=12-(ValueTemp3-12*floor(ValueTemp3/12));
                else
                    ValueYearTemp=ValueDateEditor(1,1);
                    ValueMonthTemp=ValueDateEditor(1,2)-ValueTemp;
                end
                if ValueDateEditor(1,2)-1<1
                    ValueYearEditor1=ValueDateEditor(1,1)-1;
                    ValueMonthEditor1=12;
                    ValueYearEditor2=ValueDateEditor(1,1);
                    ValueMonthEditor2=ValueDateEditor(1,2)+1;
                else
                    if ValueDateEditor(1,2)+1>12
                        ValueYearEditor2=ValueDateEditor(1,1)+1;
                        ValueMonthEditor2=1;
                        ValueYearEditor1=ValueDateEditor(1,1);
                        ValueMonthEditor1=ValueDateEditor(1,2)-1;
                    else
                        ValueYearEditor1=ValueDateEditor(1,1);
                        ValueYearEditor2=ValueDateEditor(1,1);
                        ValueMonthEditor1=ValueDateEditor(1,2)-1;
                        ValueMonthEditor2=ValueDateEditor(1,2)+1;
                    end
                end
                ValueMaxDate1=[ValueDateEnd(1,1:2) NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;ValueYearTemp ValueMonthTemp NaN];
                if ValueTemp2<ValueTemp
                    ValueTemp3=ValueTemp2-(12-ValueDateEditor(1,2));
                    if ValueTemp3>=0
                        ValueYearTemp=ValueDateEditor(1,1)+floor(ValueTemp3/12)+1;
                        ValueMonthTemp=ValueTemp3-12*floor(ValueTemp3/12);
                    else
                        ValueYearTemp=ValueDateEditor(1,1);
                        ValueMonthTemp=ValueDateEditor(1,2)+ValueTemp2;
                    end
                    ValueMaxDate2=[ValueYearTemp ValueMonthTemp NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;StartDate(1,1:2) NaN];
                else
                    ValueMaxDate2=ValueMaxDate1;
                end
            else
                if ValueDateTemp<50
                    ValueTemp=(ValueDateEnd(1,1)-ValueDateEditor(1,1))*12+ValueDateEnd(1,2)-ValueDateEditor(1,2)-1;
                    ValueTemp2=(ValueDateEditor(1,1)-StartDate(1,1))*12+ValueDateEditor(1,2)-1-StartDate(1,2);
                    ValueTemp3=ValueTemp-ValueDateEditor(1,2)+1;
                    if ValueTemp3>=0
                        ValueYearTemp=ValueDateEditor(1,1)-floor(ValueTemp3/12)-1;
                        ValueMonthTemp=12-(ValueTemp3-12*floor(ValueTemp3/12));
                    else
                        ValueYearTemp=ValueDateEditor(1,1);
                        ValueMonthTemp=ValueDateEditor(1,2)-1-ValueTemp;
                    end
                    if ValueDateEditor(1,2)-2<1
                        ValueYearEditor1=ValueDateEditor(1,1)-1;
                        ValueMonthEditor1=13-(ValueDateEditor(1,2)-2);
                        ValueYearEditor2=ValueDateEditor(1,1);
                        ValueMonthEditor2=ValueDateEditor(1,2)+2;
                    else
                        if ValueDateEditor(1,2)+2>12
                            ValueYearEditor2=ValueDateEditor(1,1)+1;
                            ValueMonthEditor2=ValueDateEditor(1,2)+2-12;
                            ValueYearEditor1=ValueDateEditor(1,1);
                            ValueMonthEditor1=ValueDateEditor(1,2)-2;
                        else
                            ValueYearEditor1=ValueDateEditor(1,1);
                            ValueYearEditor2=ValueDateEditor(1,1);
                            ValueMonthEditor1=ValueDateEditor(1,2)-2;
                            ValueMonthEditor2=ValueDateEditor(1,2)+2;
                        end
                    end
                    ValueMaxDate1=[ValueDateEnd(1,1:2) NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;ValueYearTemp ValueMonthTemp NaN];
                    if ValueTemp2<ValueTemp
                        ValueTemp3=ValueTemp2-(12-ValueDateEditor(1,2)-1);
                        if ValueTemp3>=0
                            ValueYearTemp=ValueDateEditor(1,1)+floor(ValueTemp3/12)+1;
                            ValueMonthTemp=ValueTemp3-12*floor(ValueTemp3/12);
                        else
                            ValueYearTemp=ValueDateEditor(1,1);
                            ValueMonthTemp=ValueDateEditor(1,2)+1+ValueTemp2;
                        end
                        ValueMaxDate2=[ValueYearTemp ValueMonthTemp NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;StartDate(1,1:2) NaN];
                    else
                        ValueMaxDate2=ValueMaxDate1;
                    end
                else
                    if ValueDateTemp<100
                        ValueTemp=(ValueDateEnd(1,1)-ValueDateEditor(1,1))*12+ValueDateEnd(1,2)-ValueDateEditor(1,2)-2;
                        ValueTemp2=(ValueDateEditor(1,1)-StartDate(1,1))*12+ValueDateEditor(1,2)-3-StartDate(1,2);
                        ValueTemp3=ValueTemp-ValueDateEditor(1,2)+3;
                        if ValueTemp3>=0
                            ValueYearTemp=ValueDateEditor(1,1)-floor(ValueTemp3/12)-1;
                            ValueMonthTemp=12-(ValueTemp3-12*floor(ValueTemp3/12));
                        else
                            ValueYearTemp=ValueDateEditor(1,1);
                            ValueMonthTemp=ValueDateEditor(1,2)-3-ValueTemp;
                        end
                        if ValueDateEditor(1,2)-4<1
                            ValueYearEditor1=ValueDateEditor(1,1)-1;
                            ValueMonthEditor1=13-(ValueDateEditor(1,2)-4);
                            ValueYearEditor2=ValueDateEditor(1,1);
                            ValueMonthEditor2=ValueDateEditor(1,2)+3;
                        else
                            if ValueDateEditor(1,2)+3>12
                                ValueYearEditor2=ValueDateEditor(1,1)+1;
                                ValueMonthEditor2=ValueDateEditor(1,2)+3-12;
                                ValueYearEditor1=ValueDateEditor(1,1);
                                ValueMonthEditor1=ValueDateEditor(1,2)-4;
                            else
                                ValueYearEditor1=ValueDateEditor(1,1);
                                ValueYearEditor2=ValueDateEditor(1,1);
                                ValueMonthEditor1=ValueDateEditor(1,2)-4;
                                ValueMonthEditor2=ValueDateEditor(1,2)+3;
                            end
                        end
                        ValueMaxDate1=[ValueDateEnd(1,1:2) NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;ValueYearTemp ValueMonthTemp NaN];
                        if ValueTemp2<ValueTemp
                            ValueTemp3=ValueTemp2-(12-ValueDateEditor(1,2)-2);
                            if ValueTemp3>=0
                                ValueYearTemp=ValueDateEditor(1,1)+floor(ValueTemp3/12)+1;
                                ValueMonthTemp=ValueTemp3-12*floor(ValueTemp3/12);
                            else
                                ValueYearTemp=ValueDateEditor(1,1);
                                ValueMonthTemp=ValueDateEditor(1,2)+2+ValueTemp2;
                            end
                            ValueMaxDate2=[ValueYearTemp ValueMonthTemp NaN;ValueYearEditor2 ValueMonthEditor2 NaN;ValueYearEditor1 ValueMonthEditor1 NaN;StartDate(1,1:2) NaN];
                        else
                            ValueMaxDate2=ValueMaxDate1;
                        end
                    else
                        if ValueDateTemp>180
                            ValueTemp=ValueDateEnd(1,1)-ValueDateEditor(1,1);
                            ValueTemp2=ValueDateEditor(1,1)-StartDate(1,1);
                            ValueYearTemp=ValueDateEditor(1,1)-ValueTemp;
                            ValueMaxDate1=[ValueDateEnd(1,1) NaN NaN;ValueDateEditor(1,1)+1 NaN NaN;ValueDateEditor(1,1)-1 NaN NaN;ValueYearTemp NaN NaN];
                            if ValueTemp2<ValueTemp
                                ValueYearTemp=ValueDateEditor(1,1)+ValueTemp2;
                                ValueMaxDate2=[ValueYearTemp NaN NaN;ValueDateEditor(1,1)+1 NaN NaN;ValueDateEditor(1,1)-1 NaN NaN;StartDate(1,1) NaN NaN];
                            else
                                ValueMaxDate2=ValueMaxDate1;
                            end
                        end
                    end
                end
            end
            if ValueMaxDate1(1,1)==2021||ValueMaxDate1(2,1)==2021
                ValueMaxDate1=[];
                ValueMaxDate2=[];
            else
                if ValueMaxDate2(1,1)==2021||ValueMaxDate2(2,1)==2021
                    ValueMaxDate1=[];
                    ValueMaxDate2=[];
                end
            end
        else
            ValueMaxDate1=[];
            ValueMaxDate2=[];
        end
        if size(ValueMaxDate1,1)>=1
            if ValueEditorsBefore==0
                n1Temp=n1Temp+1;
            else
                n1Temp2=n1Temp2+1;
            end
        end
    else
        ValueMaxDate1=[];
        ValueMaxDate2=[];
    end
    save([ValueFolderTemp2 'StartEditor' num2str(n1) '.mat'],'ValueMaxDate1','ValueMaxDate2','ValueJournalTemp','ValueEditorsBefore');
end
n1Temp
n1Temp2
clear all
        
            
                
            
        
        